home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 501_600 / DISK0510 / DISK0510.ZIP / MATH < prev    next >
Text File  |  1985-08-08  |  640b  |  25 lines
  1. PROGRAM MATH; {some simple math calculations}
  2. VAR
  3.   A,B : INTEGER;
  4.   OPERATOR : CHAR;
  5.   
  6.  
  7. BEGIN {----------------------------------------------------------}
  8.   CLS;
  9.   WRITE('ENTER A NUMBER: ');
  10.   READLN(A);
  11.   WRITELN;
  12.   WRITE('ENTER ANOTHER: ');
  13.   READLN(B);
  14.   WRITELN;
  15.   WRITE('ENTER AN OPERATOR(+,-,*,/): ');
  16.   READLN(OPERATOR);
  17.   WRITE('A '); WRITE(OPERATOR); WRITE(' B = ');
  18.   CASE OPERATOR OF
  19.     '+' : WRITELN(A+B);
  20.     '-' : WRITELN(A-B);
  21.     '*' : WRITELN(A*B);
  22.     '/' : WRITELN(A/B);
  23.   END;{case}
  24. END.
  25.